﻿Public Class Constante
    Public Shared INSERTAR As Integer = 1
    Public Shared ACTUALIZAR As Integer = 2
    Public Shared ELIMINAR As Integer = 3
    Public Shared VACIO As String = ""
    Public Shared MENOSUNO As Integer = -1
    Public Shared FECHAVACIA As String = "01/01/1900"
    Public Enum ESTADO As Integer
        Solucionada = 1
        NoSolucionada = 2
        PendienteSolucion = 3
    End Enum

    Public Shared Function obtenerAnos() As DataTable
        'Devuelve el año actual y el año siguiente cargados en una tabla
        Dim dt As New DataTable("TablaAnos")
        dt.Columns.Add("Ano")
        dt.Columns.Add("AnoId")
        For ano As Integer = 2010 To Today.Year
            dt.Rows.Add(ano, ano)
        Next

        Return dt
    End Function

    Public Shared Function comboNumeroEntrega() As DataTable
        'Devuelve el año actual y el año siguiente cargados en una tabla
        Dim dt As New DataTable("TablaNumeroEntrega")
        dt.Columns.Add("EntregaNumero")
        dt.Columns.Add("EntregaNumeroId")
        For entrega As Integer = 1 To 6
            dt.Rows.Add(entrega, entrega)
        Next

        Return dt
    End Function

    Public Shared Function obtenerSexos() As DataTable
        'Devuelve los tipos de sexo
        Dim dt As New DataTable("TablaSexo")
        dt.Columns.Add("Sexo")
        dt.Columns.Add("SexoId")
        dt.Rows.Add("Masculino", "Masculino")
        dt.Rows.Add("Femenino", "Femenino")

        Return dt
    End Function

    Public Shared Function comboFiltroMes() As DataTable
        Dim dt As DataTable = MesDAO.obtenerMeses(0)
        dt.Rows.Add(0, " - Todos - ", "")
        Return dt
    End Function

    Public Shared Function comboFiltroAno() As DataTable
        'Devuelve el año actual y el año siguiente cargados en una tabla
        Dim dt As New DataTable("TablaAnos")
        dt.Columns.Add("Ano")
        dt.Columns.Add("AnoId")
        For ano As Integer = 2010 To Today.Year
            dt.Rows.Add(ano, ano)
        Next

        Return dt
    End Function

    Public Shared Function comboFiltroObraSocial()
        Dim dt As DataTable = ObraSocialXPlanDAO.comboObraSocialXPlan()
        dt.Rows.Add(0, " - Todas - ")
        Return dt
    End Function

#Region "Subrutinas que preguntan si el parámetro es nothing y si lo es le asignan un valor"

    Public Shared Sub esNulo(ByRef parametro As String)
        If parametro Is Nothing Then
            parametro = VACIO
        End If
    End Sub

#End Region

End Class
